home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v10n14 / shuffle.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-02  |  1009 b   |  45 lines
  1. SHUFFLE.PAS                 COMPLETE LISTING
  2.  
  3.  
  4. PROGRAM demonstrate_shuffling;
  5. VAR
  6.   deck           : ARRAY[1..52] OF Integer; {or of anything else}
  7.   saved, i, j    : 1..52;
  8.  
  9. BEGIN
  10.   {place initial values in array}
  11.   FOR i := 1 TO 52 DO
  12.     deck[i] := i;
  13.  
  14.   {seed random number generator}
  15.   Randomize;
  16.  
  17.   {here's the guts of it}
  18.  
  19.    {shuffle the array - pass *once* through the array, swapping each element
  20.     with another, randomly chosen, element}
  21.  
  22.   FOR i := 1 TO 52 DO
  23.     BEGIN
  24.       {find another element to swap with. Random returns value between
  25.        0 and 51, so must add 1}
  26.       j := Random(52)+1;
  27.       {make sure not swap element with itself}
  28.       WHILE j = i DO
  29.         j := Random(52)+1;
  30.       {perform the swap}
  31.       saved := deck[i];
  32.       deck[i] := deck[j];
  33.       deck[j] := saved
  34.     END;
  35.  
  36.   {output for testing purposes}
  37.   FOR i := 1 TO 52 DO
  38.     BEGIN
  39.       Write(deck[i]:3);
  40.       IF i MOD 10 = 0 THEN WriteLn;
  41.     END;
  42.   WriteLn;
  43.  
  44. END.
  45.